home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs09.d81 / ansiterm.sfx / ansi.term (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  623b  |  32 lines
  1. 1 IF F=1 THEN 10
  2. 5 OPEN5,2,0,CHR$(6):CLOSE5:POKE56,48:POKE55,0:POKE644,48:POKE643,0:CLR
  3. 7 F=1:LOAD"AT.ML",8,8
  4. 10 POKE 53280,14:POKE 53281,6
  5. 15 OPEN5,2,0,CHR$(6)
  6. 17 AD=3*4096:C=1022730:BR=300
  7. 20 PRINT"[147][154]"
  8. 30 PRINT" [193]NSI [212]ERM BY [210]OSS [210]IDGE"
  9. 40 PRINT
  10. 50 PRINT" 1200 BAUD FIX BY [211]TEVE [208]UNTER"
  11. 60 PRINT
  12. 80 GOSUB 500
  13. 85 IF Q THEN 120
  14. 90 SYS AD
  15. 100 PRINT"[154]";:GOSUB 500
  16. 110 IF NOT Q THEN SYS AD+3:GOTO100
  17. 120 CLOSE 5
  18. 130 SYS 65418
  19. 140 END
  20. 499 :
  21. 500 Q=0
  22. 503 PRINT
  23. 505 PRINT "   [194]AUD [210]ATE [195]URRENTLY:";BR
  24. 510 INPUT "[206]EW [194]AUD [210]ATE (0=QUIT)";BR
  25. 520 IF BR=0 THEN Q=-1:RETURN
  26. 525 IF BR<1 OR (BR>600 AND BR<>1200 AND BR<>2400) THEN 510
  27. 530 P1=C/BR:P2=P1:P3=P1/2-100
  28. 540 IF BR=1200 THEN P1=P1*.966
  29. 550 IF BR=2400 THEN P1=P1*.900
  30. 560 SYS AD+6,P1,P2,P3
  31. 570 RETURN
  32.